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This  -se-c  ond  i  nt  er  i  m--  report  deal  s  w  i  t  h 
the  first  series  of  measurements  in 
W  e  s  t  e  r  n  G  e  r  m  an  y . 

T  h  e  d a t  a  a r  e  p  resentc d  a n d  t h  e  w e  a t h  e  r 
weather  maps  are  added. 

Data-tapes  (  I  BM-9-t  rack  >  had  been  sent  to 
White  Sands  Missile  Range,  F.  EATON, 
we  still  expect  the  information  of  the 
readability  of  the  data. 

T h e  m easu r i n g  site  in  n o r t h e r n  G e r m a n y 
h a d  t o  b e  changed  due  t  o  t  w o  reas o ns: 

1  .  o  n  e  f  ar  m  e  r  r  e  v  o  k  e  d  t  h  e  p  e  r  rn  i  s  s  i  o  n  t  o 
work  on  his  ground, 

2.  the  area  was  unsecured  at  one  end 
of  the  optical  path.  ^ 

W e  now  have  the  permission  of  the  p o r t 
authority  of  BREMEN-flirport  in  norhern  Germ  a  n 


Description  of  the  measuring  site  at  BREMEN- ai r-f i  e  1  d 

This  measuring  site  is  situated  about  SO  Km  north  of  the  first 
area  at  VERDEN-'fl  1  1  er .  The  position  of  the  new  and  old  measuring 
sites  are  marked  in  fig.  no.  1.  BREMEN  is  representative 
for  mar  i  t  i  me  c  1  i  mat e . 

B  R EMEN-ai r -field  is  a  c  o m m e  rcia 1  a i r  p o r  t  w i t h  f  e  w  t  r a f  f i c 
only  (approx.  20  LTO-cyc 1 es) .  The  area  is  completely  flat  within 
the  first  10  km.  Some  buildings  are  situated  near  the  western 
edge  of  the  measuring  site,  the  area  is  open  to  the  south  and 
west.  The  mesauring  site  itself  is  flat  and  grass  is  growing. 


T  h  e  d  i  s  t  a  n  c  e  b  e  t  w  e  e  n  t  h  e  1  i  g  h  t-so  u  r  c  e  a  n  d  t  h  e  r  e  c  e  i  <■>  e  r  is  75  Q  m  . 
For  this  new  site  the  measuring  equipement  had  to  be  powered 
by  batteries  completely. 
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Locations  of  measurements  in  West-Germany 
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Each  day  with  measurements  is.  a  FILE,  RECORD#  1  gi  mss  the  title 
a n  d  t  h  e  1  o  c  at  i  o  n  o  f  t  h  e  m  e  a s  u  r  e  m  e  n  t . 

RE CORD# 3  and  #4  gi yes  the  description  of  the  dat  a-records . 
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-  F  F  .  F  w  e  t  b  u  1  b  e  t  e  rn  p  e  ar  u  r  e 
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R  e  c  v  r  d  #  5  : 

t',M284 1 0 1  1 00 1 099999990  0  9.8  .2  9.5  .1  -.14  0  01  999999999999999999999 

99999999915  19  15  16  19  18  1?  18  1?  19  19  15  2© 

Record  #6: 

SM284  10U001018  19  20  18  19  1?  16  1?  1?  18  21  21  19  20  21  22  18  19  18  IT  IT  20  1 
7  1?  15  19  18  14  24  21  20  19  19  19  20  23  IS  **** 

Record  #?: 

MM284 1011 00202968 . 8  .1  .4  9.8  .2  9.4  .1  -.14  0  011  99925  23  24  26  25  26 

25  29  22  23  24  19  22  24  25  26  26  23  24  23  19  22 

R  e  c  o  r  d  4  8 1 

9(1284101 1002021  22  20  22  26  19  20  20  25  19  20  25  21  21  18  20  20  19  26  19  22  17  2 
3  17  19  20  22  24  22  20  23  21  26  20  22  19  21  **** 
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19  13  24  19  19  18  20  22  17  19  21  17  17  20  19  19 
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•;  15  19  17  13  17  17  18  18  17  15  19  19  22  23  »*** 
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18  19  20  19  22  20  17  19  2 


99999999924  23  21  23  24  22  23  18  23  22  20  21  23 
Record  *18: 

SM284101 101 1023  20  19  22  23  20  21  21  22  22  28  22  18  19  21  19  IS  21  17  IS  19  1 

0  19  19  18  18  19  21  16  18  19  17  19  17  19  16  **** 

Record  *19: 

MM284101 101203008  1.5  1.  1  10  .1  9. 5.1  -.17.01  011  19991  7  1  7  22  2  1  19 

18  19  19  25  21  18  18  21  20  20  17  18  17  17  22  19 

Record  *20: 

SM284 101 1012020  19  18  20  16  IS  21  22  16  18  20  18  19  24  19  20  IS  15  16  16  15  1 
4  19  16  16  17  20  18  17  16  15  15  20  20  17  15  **** 

Record  *21: 

MM284 101 101303058. 3  .2  .6  9. 7. 3  9. 3. 2  -.21  .01  012199917  20  21  16  14 

21  20  20  17  18  19  18  21  18  19  17  18  19  21  16  18 

Record  *22: 

SM284101 1013617  16  14  18  17  16  20  23  16  18  15  18  17  19  16  16  19  17  22  16  16  1 
9  19  15  16  18  16  16  16  19  19  16  16  16  19  17  **** 

Record  *23: 

MM284101  1014099999990  O  8.7  .3  8.7  .2  -.2  .03  013199916  19  16.  21  15 

18  18  17  19  18  19  24  17  21  18  17  15  18  18  16  21 

Record  *24: 

SM284 101 1014014  17  13  15  20  14  14  13  14  14  16  15  16  16  22  20  15  16  14  13  15  1 
0  15  16  18  17  17  22  18  17  15  15  IS*  15  17  22  **** 

Record  #25: 

MM284101 1015O9999999O  0  8.3  0  8.4  0  -.12  O  014199915  16  19  13  16 

20  15  15  18  17  15  15  18  15  12  12  12  10  13  11  11 

Record  #26! 

SM284 101 1015013  108  11101Q9  9  8  8  7  6  8  8  7  7  7  9  7  S  7  6 

8777688787  10  10  11  9  **** 

Record  #27: 

MH284101 1020099999990  O  8.3  .3  8.3  .2  -.11  O  @15199911  9  9  18  11 

11  13  11  10  10  ID  12  11  10  10  9  10  9  11  11  10 

Record  #28: 

SM284 101 1020010  9  10  13  10  11  10  11  12  14  13  13  12  16  16  17  15  12  12  13  12  13 

2  13  12  14  13  12  13  13  13  14  11  13  15  12  11  **** 

Record  #29: 

MM284 101 102109999999O  O  8.4  .1  8.4  .1  -.15  .02  020 1 999999999999999 >999 

99999999912  111111121111119  9  9  9  12 

Record  #30: 

SM234 101 1021O9  11  10  14  11  11  9  118  7  7  7  7  8  8  8  8  3  7  7 

8  8  9  8  9  8  3  7  7  6  6  6  7  7  **** 

Record  #31: 

HM2841 01 1022099999990  O  7. 8. 2  S  .1  -.160  02119996  798 

10121O101O129  8  103  8  8  8  7  7  8 

Record  #32: 

SM284 101 102207  77776777776SS7  10  9  8  10  7 

9  8  9  10  11  12  11  14  19  17  19  23  19  23  **** 
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Cj  r'-j 


11=0 

R  =  66I  1  b>tes  in  Kernsp.  bei  PRINT! Z2=10min ) 

I  9= I  NT ( MEM / R  }- 1  1  ver-fuegbare  PRINTS 

IF  IS  3  THEN  19=0 

i 

'  ZEITA8STAENDE 

i 

33=10  1  Mess interva 1 1  (sec) 

32=10  1  Se l c her i n t er va 1 =MWBer< m i n  ) 

24=1  i  K cpier interval  1  (Std) 

1  Z 4  ganzzahl . Tei 1  von  24  (z.B.  8) 

DISP  "FROGRAMM  AMI  "  @  WAIT  1 

DISP  ” Mess i nt er va 1 1 = " ; Z3 ; "  sec"  @  WAIT  1 

DISP  "Spe  icher i n terva 1 1  =  " ; Z2 i "  Min"  @  WAIT  1 

DI5F  “Kopier- interval  1  =  ”  i  Z4  ;  "  Std"  @  WAIT  1 

24=Z4*6Q 

25=1  NT i 63/ Z 2  ) 

Z  1  =  Z2  *60 

1  5  5  1  b  s  t  rJe  f  .  F  l  t  =  Geradeng  1  e  1  chung 

i 

DEF  FNfji  [I ,  C  )  •  0(  C  >  *  (  D-X  1(C)  )+Y  1(C) 

1  TAMDOF  T  -P.  I  N6ABE 

IN)  i :  T  "  St  an- tart  '  >2  Zeichen  )”  i  0$ 

I)  1  '  “peii-her  plots  frei  fuer  ca."  @  WAIT  1 

r  : ::  is-  "r-iurs-  " ;  int i  I9/Z5);"  std." 

'■■1 A I T  2 

It  INI  i  IS/ZS  /  Z4/G0  f  HE  f  1  DISP  "Kopiermterval  1  (  Z4  )  verl  leinern  •  >  "  &  STOP 


ON  ERROR  GOTO  1380 
ASSIGN  8  3  TO  0$& " Z Z A " 

PRINT  8  3  i  Z3 ,  Z2 , Z4/60  i  Intervalle  -  LAMI 
ASSIGN  It  3  TO  * 

COPY  0$& " Z Z A "  TO  0$& " Z Z A : CA " 

PURGE  0$& " Z  Zn " 

GOTO  1410 
OFF  ERROR 

IF  ERRN-  64  THEN  3140 


1  LE3EN  UHR 

T  =  TIME  1  Tageszc-it  (sec) 

M5= I  NT ( T/60 i 

D$=OATEi  1  yy/mm/dd 

T  $  =  D  $  I  7 , 3  1 

ON  ERROR  GOTO  3080 

F  1  $  =  0$uD$t  4 , 5  1 E.  D$  I  7 ,8  1  '  Filename: 

ASSIGN  8  1  TO  Pit 


mint  t  ,  >..*.  =  S  t  andor  t 


1740  I 

1750  IF  MOD( M5 ,  Z2  )-0  AND  MS-  MS  THEN  2430  '  Mu.Stau 
1 7S0  i 

1770  >  Messen  Signal  ( Z2  sec) 

1730  1 

1790  SEND  10  * : dl" , "uni , lad#" , "dcv8"&CHR$< 13  >&CHR$< 10  > 
1300  ASSENT  I  OS 1  "  ;  DL  "  ,  "un  1  ,  t  r  0a  ,  t  ad#  ,  sda  "  ) 

1  no  I  =MAL<  Dl  it  4  ,S  1  ) 

1520  I=MOD(  I  ,  Z2  )+  1  i  Ze  i  len  i  nde.-=Mi  nu  t  e  + 1 
1330  J  =UAL(  U 1  $  [  7 , 3  ]  ) 

1840  J  =  IfJT<J/10tl  >  I  Spa  1  t  en  i  ndex  =  s  ec  +  1 
1  350  3  <  I  ,  J  )  =OAL ( A$  )  1  Signal 
I960  DISP  S(I , J  ) 

1370  i  IF  SU,J)  G 1  OR  S  (  I  ,  J  )  >  6  9  THEN  S(I,J>  =  999 

1390  1  Dl SF  TIMES 
1390  * 

1300  1  Messen  Meteorologie 

1310  ' 

1920  FOR  I---1  10  !• 

I  37-0  FT  •-•"TWO" 

1340  IF  L< I >  0  THEM  S$="DCU" 

;  950  t: I  - B S T R$ (  AB 3  (  L  (  I  ) )  < 

1950  TEND  I  0  "  dl" , "uni , lad#" ,B$&CHR$< 13 >&CHR$( 10  ) 

1  970  AS— ENT  1 0$ '  " : d 1 " , " uni , t r ; 0a , t  ad# , sda "  ) 

1  3 9  0  u 9 1  I  )  -OnL  (  AS  > 


1510  Mb -5OO0 


IS 00  FOR  i=l  TO  Z2 
15  10  FOR  J  =  1  TQ  r, 

1520  Si  I ,J >  =  999  1  •  1  nachfragen 

1S30  NEXT  J 
1540  NEXT  I 
1  F,  5  0  1 

1660  i  ZEITSCHLEIFE 

167  0  ' 

1680  T  =  I  NT  < TIME  > 

1690  IF  M0D(T,Z3>  '0  THEN  1680 
1700  D$=0ATE$ 

1710  U1S=TIME$ 

1720  T2$=D$t  7,8] 

1730  M5=lNTi T/50 >  1  Zeit  (run) 


OR  1-4  THEN  09 (  I  )  =  D9<  I  >-24 .5 


3  26  0  ; 

2070  IF  D 9 •  I  •  I  ;  )  OR  09(  I  »  »«  I  >  THEN  2130 

:w'  =  =  •  i  = : 

3030  ■ 

2  10c  2-03  I  ’  •?  23':  l  —  K N G (  D  ,  I  >  1  Geradengl 


2320 
:  r  r*:  2!  30 
’  •  u.M  MO  - D -3 f  2  ) 


2200  GOTO  2320 
2  210  1 

2220  IF  N9<  1  )  =  0  THEN  2280 

2230  IF  ABS<M9<  1  >/N9U  >-D9U  >  K  =  180  THEN  2280 

2230  IF  M 9 (  1  )  / N 9 (  1  >180  THEN  2270 

2250  D9( 1  )  =  D 9 <  1  >-360 

2260  GOTO  2290 

2270  09( 1  )=09( 1  >  +  360 

2280  N9( 1  )  =  M9(  1  )+09< 1  )*09( 2  )  1  Wr  gewichtet 
22  90  S9<  1  >  =  S9( 1  >  +  D 9 <  1 ) ‘091 1  )*09( 2  > 

2300  N 1 =N9 ( 1  > 

2310  N9<  l  )  =  N9<  1  >  +  D9( 2  > 

2320  i 

2330  FOR  1=2  TO  K 

2340  IF  S8( I  >  =  0  THEN  2390 

2350  M9( I >  =  M3( I  )+D9l  I  > 

2360  S9( I >  =  S9( I  )  +  D9(  I  >‘09(  I  > 

2370  N9( I  i  =  N91  I  >+l 
2380  S3<  I >=0 
2330  NEXT  I 
34  00  S 3 <  1  >  =  0 

24  10  GOTO  1690  i  Zei  tsc.hlei  fe 
2420  1 

2430  1  H  1 1 1  e  1  uier  t.  ,  S  t  andardabw 

2  4  40  FOR  1  =  1  TO 

2450  IF  N 9 1 I  >  =  0  THEN  M9( I  > , 5 9 <  I  )  =  999  @  GOTO  2610 
2460  D9 : I  >  =  M 9 <  I  > 

2470  IF  I' 1  THEN  GOTO  2540 
2480  M3i  1  >  =  M  9 1  1  > / H 9 f  1  > 

2490  09(  1  >=03'  !  > *09'  1  >/N9<  1  > 

25 00  N3'  1  >  =  •!!■  1 


2510  IF  M9<  1  >  =0  THEN  M9( 1  )  =  M9<  1  >  +  360 
2520  IF  M9(  1  )  360  THEN  M9( 1  )  =  M9< 1  >-360 
3530  GOTO  3570 
2540  i 

2550  M9( I  )  =  M9( I >/N9(  I  ) 

2560  D9( I  )=D9( I  >»D9< I  >/N9( I  ) 

2570  0  =  S9< I >  —  D 9 < I  ) 

2580  IF  N9(I>  =1  THEN  GOTO  2600 
2590  V=y/(N9( I  > -  1 > 

2600  S9( I  )  =  5QR( A6S <  U >  i 
2510  NEXT  I 
2620  i 

2G30  i  UIINDSTILLEN,  na*  .  WIND 

26  40  IF  W  0  THEN  M9<  K+ 1  >=U 

2653  IF  M0  3  THEN  M9< K+ 1 >=M9( K+ 1 >  + INT( M0* 100 >/ 10"5 
2650  ' 

2670  i 
2680  1 

2690  1  Doppe 1  be  1 egung ;  INT( M9(  I  >  )=Mu 
2700  i  FRACT(M9(  I  )  )  =  Stabw 

2710  FOP  1=1  TO  K 
2720  61=1 

2730  M9< I  )  = I  NT ( M9(  I  >* 100  > 

2740  IF  ti 9 <  I  >  0  THEN  B 1  =- 1 
2750  M9( I >  =  AES( N9(  I  >  )  +  I N  T  (  S  9  ( I  )  *  1 00  > / 1 0 ' 5 
2760  M 9 < I  >=H9< I  >»B1 
2770  NEXT  I 
2780  '  SPEICHERN 

2790  ON  ERROR  GOTO  3080 
2800  11=11+1 
2.310  U$  =  Ul$t  1,51 

2820  IF  U$="00:00"  THEN  U$="24 ; 00" 

2830  FRINT  #  1,11  ;  U$,M9(>  '  Uhr,MW/SA 
2840  FOR  1=1  TO  22 
2850  FOR  J=1  TO  6 
2860  P 1 < J  >  =  S( I , J  > 

2870  NEXT  J 
2880  11=11+1 

2890  PRINT  8  1,11  ;  Pl(  >  i  USA-Signale 
2900  NEXT  I 
2910  N6=M5 
2920  1 

2  930  IF  MOD( M5 , 2 4  )  :  0  THEN  1550 
2940  I 

2950  :  COPT  Oaten  -  Band 

2  962  f—  5 1  ON  5  1  TO  • 

:  970  r;  OP  V  F  1  i  i  0  F  1  S2.IJS  I  1  ,  2  I  & "  =  Cfi " 

riiK.-.p  r  i 


;hen  3000 


•  •  :  M  L  f  I-  L-iji’  AMI'l  .  • 


0  c D  ' J  r F  ERROR 

090  IF  ERRN  95  THEN  3130 

100  BYE  @  DISP  "BAND  UOLL  '  '  " 

110  BYE  @  DISP  "RESTDATEN  IN  FILE  “ i F  1  $ 

120  WAIT  3  a  GOTO  3040 
130  1 

140  BYE  9  DISP  "FEHLER '  '  '  '  '  " 

150  WAIT  1  9  DISP  "ERRL/EPRN • " ; ERRL ; ERRN 

160  WAIT  5  @  GOTO  3110 

173  i 

ISO  i 

190  1 

300  ON  ERROR  GOTO  3060 

310  ASSIGN  #  1  TO  *  0  IF  II  THEN  COPY  Fl$  TO  F 1S& " 99 " & " •• C A 
220  IF  P  THEN  PURGE  F  1* 

330  EYE  @  DISP  ''  P  -  STOP  :  "  ; DATES ;  "  "iUlttl.SJ 
340  WAIT  ; 

250  GOTO  3040 

2 SO  END  1  ♦•«•♦•••»•*•*«*••»•* 


PROGRAMM  (LAMIIBZI  22.5.84  U.GEISLER 

liest  Messdaten  aus  '-,AMI>  nit  HP75 
2.  Vers  ion 

5  meteor. Oaten  +  1  Signal 

Die  Oaten-Files  aus  ‘'AMI  >  sollten  n  i  c  h  t  in  Rechner  sein 
Filename:  "  a  .<mm  1 1  hh "  ,  xx  =  S  t  andor  t  k.ennung 


'  PESTFILE 


hh=99 


ASSIGN  10  "  :  CA, : MB"  ■  TV" 

*  PRINTER  IS  : TV" 

'  DISPLAY  IS  :  T V 11 
OPTION  BASE  1 

DELAY  .5  i  DELAY  FUER  DISP. 

DIM  F1$[8],F2$I 11 ], U$t 5 1,D$[ 8 ],2$I 51 

DIM  SS[80],S1$[80],E$[21,M$[21,T$[2],O$[2],K$[2] 

INTEGER  T , T 1 , T 9 , K , K 1 , Q 

REAL  M9( G ),S9(S),U,M0 

SHORT  P 1 ( 8 ) 


E3  =  CHF.$(  13  )&CHR$(  10  )  I  CR/LF 
SENDIO  ,"IFC" " 

SEND  10  "  MB" , "UNL , LAD# , DCL ” , 

i 

INPUT  "STANDORT  7  <2  Ze l chen  ) " ; 0$ 

INPUT  "MONAT  (mm)7";M$ 

INPUT  "TAGE  (1,31)  7"  ;T1  ,ig 
INPUT  "KOPIERINTERVALL  (hh)7“;K 
INPUT  " STARTZE I T  <hh)7";Q 

i 

Z’i“0$8r"  ZZA” 

COPY  Z$&":CA"  TO  ZS 
ASSIGN  t  3  TO  Z$ 

READ  4  3  .  Z3,Z2,Z4  I  Intervalle  ->  LAMI  ->  AMIST3 
PURGE  ZS 
S3-"  " 

S3  =  STR$(  Z3  >3ES5-STR$(  Z2  >&ES8,STR$(  Z4  )&E$ 

SENDIO  " : MB ” , "UNL , LAD#" , S3 
WAIT  I  I 

S3  -  ”  '• 

T - T  1-  1 


T  =  T  +- 1  *  naechster  Tag 


I 


5 1 0  T$  =  STR$( T  ) 

520  IF  T  - 10  THEN  TS="0"&T$ 
i 

540  D$=0$&M$& T $ 

550  SENDIO  “ : MB “ , " UNL , LAD# " , D$&E$ 

5G0  K1=K1+K 
570  K$=STR$( K 1 ) 

580  IF  K 1  10  THEN  K$=“0"&K$ 

590  I 
S00  ' 

610  F  1$  =  D$&K$ 

620  F2$=F 1$& "  CA" 

630  ON  ERROR  GOTO  1010 
640  COPY  F2$  TO  F 1  $ 

650  DISP  " F  I  LE=  "  ; F 1  $  @  WAIT  1 
660  ASSIGN  J  5  TO  Fl$ 

670  i 
680  11=0 
690  ' 

700  11=11+1 

710  READ  #  5,11  ;  U$,M9<  > 

720  DISP  U$&“ 

730  Ul=  I P (  M9<  6  )  )  @  M0=FP(M9(6  )  )*  10 "5/ 100 
740  S$='"' 

750  S$=U$&E$&5TR$(UI  )&E$&STR$(M0  >&E$ 

760  SENDIO  " : MB " , " UNL , LAD# " , S$ 

770  S$=""  @  SI $='•'• 

780  FOR  C=1  TO  5 

790  S9< C  )  =  FP( A8S( M9( C >  )  )• 10 "5/ 100 
800  M9(C  )=IP(M9(C  )  >/ 100 
810  3$=S$&STR$(M9<C  )  >&ES 
820  S1$=S1$&STR3( S 3 < C  )  )&E$ 

830  NEXT  C 

840  DISP  USING  850  .  M9<  1  ) , M9( 2  ) , M9< 3  ) , M9< 4  ) , M9( 5 > , U , M0 
550  IMAGE  3( 5D.DD >/2< 5D.DD )/0D,5D.D 
860  i 

870  SENDIO  "  :  MB "  ,  " UNL  ,  LAD#  "  ,  S$  i  Mu 
860  SENDIO  " ; ME " , " UNL , LAD# " , S 1  $  '  Stabw 
850  FOP  Ol  TO  Z2 
S00  11  =  11  +  1  A  33='"' 

910  READ  #5,11  .  Pl<  » 

920  i 

930  FOR  C 1 = 1  TO  6 

940  S$  =  S$&STR$<  Pl(  Cl  )  18-ES 

950  NEXT  Cl 

960  SENDIO  " : MB " , " UNL , LAD# " , 3$  '  Signale 
970  NEXT  C 
980  * 

990  GOTO  700 
1000  ' 


1010  OFF  ERROR 

10Z0  IF  ERRN  ' BO  THEN  1090 

1030  1  File  fehlt  • 

1040  IF  F1$(7,8I="99"  THEN  1150  '  naecbster  Tag 
1050  PRINT  "FILE  NICHT  DA  ";F1$ 

1 0G0  IF  F  1  $  [  7 , 8  ]  <  -  "  2  4  “  THEN  1140 
1070  K $  = " 9 9 "  @  GOTO  G00 
1080  ' 

1090  IF  ERRN<  -'34  THEN  12G0 
1 100  ON  ERROR  GOTO  12G0 
1110  1  FILE  ZU  ENDE : 

1130  OISP  F 1  $  C  7 , 8  I . "  Uhr  fertig" 

1130  PURGE  F 1  $ 

1140  IF  K 1  04  THEN  5G0 
1150  K  1  =0 

1160  S$  = "  99 . 99 "  S,E$&  " 0 "  &E$8, " 0"  &E5  1  Tsq  zu  Ende 
1170  SEND  10  "  MB" , "UNL.LADtT  ,SS 
1180  IF  T-.T9  THEN  500 
1190  PRINT 

1000  PRINT  "Uebertrag  beendet  fuer  Monat  ";M$ 

1010  PRINT  "Tag  ";T1;"-";T  '  TABI22) 

1020  S$="9999"&E$8r"0"&E$8,"0"  &E$ 

1230  SENDIO  " : MB " , "UNL , LAD# " , S$  1  Uebertr.  zu  Ende 
1240  STOP 
1250  l 

1 OG0  PRINT  "ERRL/ERRN: " ;ERRL;ERRN 
1270  STOP 

1Z80  END  1  #********#*#*#**##**## 


I 


PPOGPAMM  AMIST*  U.GEISLER  23.5. 1S84 

20  1  UMWANDLUNG  VON  DATEN  EINES  "  AMI  -  L  A  M  I  IB  2  "  D  A  T  E  N  S  A  T  Z  E  S  IN 

SO  1  STRINGS  MIT  2*  128  BYTES  (  METE  0  R  0  L  0  G  I  E  +  SIGNALE  > 

40  '  ZUP  WE  I TERVERARBE I  TUNG  MIT  HP  -  IBM  -  ROUTINE. 

50  1 

8  0  1 

70  1 

30  OPTION  EASE  1 

SO  DIM  S  1  $  C  1  2  8  3  ,  S  2  <  [  1  2  8  3  ,  F  $  [  6  3  ,  Y  t  C  2  3 

100  DIM  Uhr-T':  144  ■  [53  ,  Uf  C53  ,  U2*':  144  >  [5  3 

1  10  SHORT  M  •  144,5),  S'-  144,5  >  ,  Umax  <  144;, Wat  l  1  1  e  (  144  >  ,  S  i  g  1  0, 6  )  .Signal  •  144,10,8'. 


1  20 
1  30 
140 
150 
1  6  0 
1  70 
1  80 

1  SO 

2  0  O' 
2  1  O 
2  20 
2  30 
2  4  0 
250 
280 
270 
280 

2  S  0 
300 

3  1  0 
3  2  0 
3  3  0 
3  4  0 
350 
3  8  0 
3  70 
3  3  0 

3  S  O' 

4  0  O 
4  10 
42  0 
4  30 
440 
4  50 
480 
470 
480 

4  S  0 
500 
510 
520 
530 
540 
550 
580 
570 
580 

5  SO 
8  0  0 


INTEGER  D  i  in  ,  I  i  ,  I  ,  J  ,  Am  <  5  > ,  E m  (  5  >  ,  A s  <  5  > ,  E  s(  5  )  ,  P rn  (  5  )  ,  P s  (  5  .) 
INTEGER  A  1  ,  A  2  ,  A  p  1  ,  A  p  2  ,  Z  m ,  Z  2 ,  M  i  n ,  S  e  c 


i  REIHENFOLGE  :  Wr,  Wg,  t,  f,  itr 
DATA  14,21,30,39, 48 
MAT  READ  A  rn 
DATA  18,24,33,42,51 
MAT  READ  Em 
DATA  17, 25, 34. 43, 52 
MAT  READ  A  3. 

DATA  20,28,  37,48, 5  5 
MAT  READ  E= 

I 

DATA  0, -  1 , -  1 , -  1 , -2 
MAT  READ  Pm 
DATA  -1 , -1 , -  1 , -  1 , -2 
MAT  READ  Pa 
1 

Tl4i=":H7  " 

T15*=":H7  " 

A  1=60 
A2=  1  4 
I  i  =0 

PRINTER  IS  18 
PRINT  C  H  R  $  (  2  7  >  %.  "  E  " 

PRINT  "PRO GRAMM  <  AM  I  ST  X  >" 

INPUT  "  FILENAME  (  mint  t  xx  >  '•  "  ,  FJ 
I  N  P  U  T  "  J  A  H  R  A  k  T  U  E  L  L  (  y  y  )  "  ,  Y  * 

0  N  E  R  R  0  R  G  0  T  0  E  r  r  1 
ASSIGN  #1  TO  F  $  &  T 1 5  #  !  EINGABEFILE 

ASSIGN  #5  TO  F*[ 1 , 4 3 & " SS " &T 1 5# 

ASSIGN  #2  TO  F$ [ 5 , 6 3 & " ZZA " &T 1 5* 

READ  #2;  Zrn,  Z2,  Z4 
ASSIGN  #2  TO  * 

D  1  m  =  6  O  Z  2  *  2  4  !  re  c  T  ag 

1 

R E D I M  U h r  I  <  D  i  m  >  ,  S  i  g  <.  Z 2 , 6  )  ,  S  i  g n  a  1  <  D  i  rn ,  Z 2 , 6  )  ,  U2f  <  D  i  m  "> 

R  E  D  I  M  M  <  D  1  rn ,  5  1  ,  S  <  D  1  m ,  5  >  ,  U  m  ax  <  D  1  rn  ,  W  3  t  i  l  1  e  (.  D  i  rn  > 

1 

ON  ERROR  GOTO  E r r o r 
F 1 t  =  F# C 1 , 4D&LWC* <Ft [5,63  > 

PRINT  “NEIJER  FILENAME  (STRINGS)  :  "  5  F 1  * 

CREATE  Fl#8,T14*,Diro  +  3,260  'READ  #3;S1#&S2*  !  2*DIMC  1283 

ASSIGN  #3  TO  F1»&T14*  !  AUSGABEF I LE 

S  1  #  =  S 2 $  =  R F' T # <  128) 

INPUT  "  TITEL  ?  (MAX  30 ) " , S 1  * C 1 , 30 3 
INPUT  "  LOCATION  < MAX  12)  " , S 1 1 C 3 1 , 42 3 

I NPUT  "  KOORD . 1 N0RTH4 ( 4 ) , EAST < 4 ) " , S 1 X [43 ,463, S 1  * C 47, 50 3 


'  ANFANGSPUNKTE  MW 
'  ENDF'UNKTE  MITTELWERTE 
'  ANFANGSF'k.TE  STANDARDAW. 
!  ENDPkTE  Sw 

!  PROUND  MITTELWERTE 

!  PROUND  STANDARDABW 

!  AUSGABEF I LE  (STRINGS) 

!  EINGABEFILE 
!  An fang  Signals  in  S 1 X 
!  Ar  ’ ang  Signals  in  S 2 1 

!  CLEAR  SCREEN 


« 


.  « 


■  -i 


7 


hi 


6  1 0 

■n  *>'  ■  "  » i  ■ ' 

INPUT 

1  *1  H  W  \  ■  t  ■  w  ■  w>  V  "V  w.vrm 

"  SPECIAL  REM.  <30>", 

.T  ...  my  .  | 

SI  *C51  , SO] 

620 

PRINT 

81*11,803 

*5  3  0 

INPUT 

"  EINGABE  O.K.  <  J,  N> " 

,  j* 

640 

IF  J*< 

>"J"  THEN  570 

650 

PRINT 

#3;  81*2,82* 

660 

S 1  *  =  "  M 

X  X  J  J  M  M  T  T  h  h  rn  m  D  D  D  d  d  .  d  V  V 

.  V  <■>>,> .  "  -  T  T  .  T  t 

ssss 

679 
ssss 

680 
690 
700 
710 
720 
7  30 
740 
7  5  O 
760 

7  70 
780 
790 
800 

8  1  0 
820 
830 
840 
850 
8  6  0 
870 
880 

8  9  0 
900 

9  1  0 
9  2  0 
930 
9  4  0 
950 
9  6  0 
9  7  0 


S2#  =  "SXXJJMMTThhi»Msssssssssssssssssss£SS*sss*-s2S-3  Hiiiiiiiiiii 

PRINT  #  3 ;  8 1  * & S 2 * 

S1*=S2*=RPT*< 124 > 


S  1  *  C  1  ,  1  3  =  "  M  " 

82*  C  1 ,  1  ]  =  ,,S,‘ 

8 1  *  C  2 , 3  3  =  8  2  *  C  2 , 3  3  =  F  *  C  5 , 6  3 
8 1  *  [  4 , 5  3  =S2* [4,5  3  =Y* 

8  1  *  [  6 , 9  3  =82*  C  6, 9  3  =F*  C 1 , 4  3 


'  3T  ANDORT 
I  TAHR 

1  III  tilt  t 


MFlT  READ  #  1  ;  Uhr*  ,  list  ill*,  Umax  ,  M ,  8 
FOR  R  =  1  TO  Inn, 

IF  Uhr*  <  R  >  =  " - "  THEN  910 

2  =  VAL  <  Uhr*  <  R .)  C  1 , 2  3  > 

Z  =  6 O ✓22*2+ V h L  <  U h r  *  < R  >  1 4 , 5  3  >  •••' 2 2 
REND  #5, 2;  U2*CR>  ,  Si  g<*>  !  8  I  GNALE 

I  F  IJ  2  *  >,  R  >  <  >  IJ  h  r  *  <  R  >  THE  N  F  €  h  1  e  r 
FOR  Mir.=  l  TO  22 
FOR  8 e  C  =  1  TO  6 

8  i  gnal  <R,  M  t  n ,  Sec  >  =PROUND  <  8  i  g  <  M  i  ri ,  Sec  >*100,  O  > 

IF  8  i  g  ( M  i  rt ,  Sec  >  =999  THE  N  8 1  g  i‘,  a  1  <R,  M  i  n ,  Sec  >=99  9 

IF  8 i  g i'i a  1  ( R ,  M i  n  ,  8 e c  >=999  THE N  8  i  g n a  1  ( P ,  M i  r ,  8 e  c  1  =  - 9 9 9 


NEXT  Sec 
NEXT  Min 


NEXT  R 

M AT  Si  g n a  1  =  <  -  1  > * 8 1  g n a 
i  MAT  PRINT  Uhr*;M;S 
FOR  1=1  TO  8 
PRINT  " 1234567890" ; 
NEXT  I 

PRINT  81*110,893 


m 

9  8  0 

F  U  P  J  =  1  T  Li  P  i  rn 

Cm 

9  9  0 

IF  Uhr  *  <  J  >  =  " - "  THEN  Ne  ,t  j 

H . 

1  O  0  0 

81*1  10,  1  3  3  =82*  I  10,1  3  3  =  U  h  r  *  •  J.- 1  1,2  3s  Uhr 

L 

1010 

i 

r. 

i,  ■ 

1  020 

!  M  (  J  ,  1  >  =  M  r  ,  M  <  ,T ,  2  >  =  W  g  M  ■  J  ,  3  •  =  T  e  m  p , 

10  30 

i 

i-'. 

1  040 

8 1  *  C  1 4 ,  1 28  3  =RPT*  < " 9 " ,  1 1 5  > 

M 

1050 

82* C  14,  1 2  4  3  =  R  P  T  *  < " 9  "  ,111) 

1  060 

81* C29, 293=81*138, 383=81*147,473  =  "  " 

1070 

! 

1030 

IF  M <  J , 3 > < 0  THEN  81  * [ 29, 29 3  =  " - " 

1090 

IF  M < J , 4 > < 0  THEN  8 1  * [ 38 , 38 3  =  " - " 

1  100 

IF  M  <  J , 5  >  <  0  THEN  8 1  * C 47 , 47 3  =  " - " 

1110 

FOR  K= 1  TO  5 

« 

1120 

'  PRINT  M  (.  J ,  K  >  ,  8  (  J ,  K  ) 

1  1  30 

IF  M  <  J , K  >  =  9  9  9  THEN  1180 

1  140 

2  =  P  R  0  U  N  D  <M<J,K>,Pib<K>> 

1150 

8 1  *  C  Arr,  i  K  >  ,  Em  ( K  >  3  =VAL*  <  ABS  <  2  >  > 

1160 

2=PR0UHD < 8 < J , K > , Ps< K >  > 

1170 

8 1  *  I  As  <  K  > , Es  <  K  >  3 =VAL*  < 2  > 

i 

1130 

NEXT  K 

1190 

1 

V 

1200 

2=VRL<S1*C 10, 133 >  !  Ende  Messung 

St  i*  ah  1  i.mg 


'1 


Il  l1-'  1  =  1-10+1  1  Hnf  an g  t’l €  =  =•  u ft q 

1110  IF  Ilf C 11, 1 3]="00"  THEN  1=1-40 


1 1  5  0  SHI  5  6 ,  6  0  ]  =  V  H  L  f  ■  1  > 

1140  IF  1  1000  THEN  Sift  5  6  ,  6  0  ]  =  "  0  "  g-  S  1 1 1  5  6  ,59] 

1150  H  p 1 =  H 1 
1  1 6  0  Hpl' =  Hi 
1170  FOP  M l n  = 1  TO  11 
1  1  y  0  F  U  F  e  c  =  1  T  U  6 
1140  IF  Hpl  11*  THEN  SI 

1  100  3 1 f [ Hp 1 ,  Hp  1  +1  ]  ='v'HL  f  '  S  1  grval  '  J  ,  M  i  n.  Sec  >  > 

1  1  1  0  m  p  1  =  R  p  1  ♦  3 
1  1 1 0  G  0  T  i  j  1  1 5  0 

1  1 1 0  11:  S 1 f  C  Hpl, H  p 1  + 1 T  = V H  L  f ■  Si g n  a 1 ( J , M i n , S e  c >  1 

114  0  m  p  1  =  H  c  j  +  3 
1150  NEXT  Sec 
1 1 *0  ME  T  M l n 
l  17  0  I  i  = I  i  +  1 

1:0  FF'INT  *  3 ;  1  1  f "  Slf  '  LHNGE  IM  FILE  KGNTROLL  I  EF'EN 


1  1  +0 

PRINT  SltCS 

If 

'  TEST 

1  4  0  0 

:  1  f  C  1  0  ,  1  3  ]  = 

Site  10,  131  =  '‘ 

" 

14  10 
1410 

Me  '  i  :  NEXT 

i 

T 

14  30 

M'S  SIGN  »  TO 

*  3 

14  4  0 

PRINT  I i ; " 

S tf  mg:  H  2 5 

6  BYTES  UBERTPhGEN" 

14  50 

1  4  *  0 

ST  OR 

i 

14  70 

E  r  r  1  :  1 

1  4  SO 

OFF  ERROR 

1  490 

IF  EF'RN  56 

then  15* o 

1500 

PRINT  LIN' 5 

■ , "F ILENHME 

PRUFEN ' " 

1510 

1520 

G  0  T  0  3  9  0 

I 

1530 

E  r  r  o  r  :  1 

1540 

OFF  ERROR 

1550 

IF  E P R N  =  5 4 

THEN  560 

'  FILE  UhR  SC HON 

1560 

DI SR  "ERRN 

EF'Rl:  " :  erfl; 

ERRN 

1570 

GOTO  1440 

1580 

1590 

i 

Fehler:  ' 

1  6  O  0 

PRINT  LIN' 5 

,  Rl"  *  e  Uhr 

zei*  =*)fiiriit  nicht  wherein!" 

1*10 

PRINT  Li  If1  R 

'  :  "  "  :  l.i  Ft  r  f 

■  R  ■ 

1*10  S 
1*30  f 


10  •  PROGRAMM  " LUSfi " <  =  > " 1 usai b "  GEISLER  22.5.34 

•L'°  1  PRO  GRAMM  ZUR  UBERTRAGUNG  HER  USA-DATEN  VOM  75  IN  DEN  45 

1  SPEICHERN  :  l  TAG  =  1  FILE 
1  FILE  WIRD  IM  PROGRAMM  ANGELEGT 
-1-1  ■  d  at  a-tl  Hi:  f  tl  hp  i  1  (’ 5  t.O  h I j  45  via  hB-lti-int.frf  i.-f 


GO 

OPTION  BASE  1 

7£i 

DIM  Datum#! 10] 

,  U  #  [  5  3  ,  T  f  i  1  e  #  C  8  3 

3  0 

DIM  Uhr# <288 > C 

5  3 

90 

INTEGER  Z m , Z 2 , 

D  i  in 

1  00 

S  H  0  R  T  M  <  3  > ,  S  <  8 

1  ,  U  0i ,  U9 

1  10 

S  H  0  R  T  M  l  1 1  e  1  <  2 

8  8 , 8  > ,  S  t  an  d  ar  d  <  2 

120 

RESET  7010 

1  30 

T  15#=" : T 1 5 " 

140 

Year #="84"  ! 

J  AHR  al  t  uel  1 

150 

1 

ISO 

DISP  "  ZUERST 

HP  75  STAR  TEN,  Vi 

1  70 

PAUSE 

ISO 

DISP  CHR  t  < 1 2  > 

1  90 

WAIT  1000 

2  0i  0 

210 

ENTER  700  US  INi 

G  "  +  ,  3<F.>  "  ;  Zm,  Z2: 

220 

Z  h  =  6  0  x  Z  2  '  i 

e  c  S  t  d  . 

230 

D  i  m  =  Z  h  *  2  4  1  i 

••"Tag 

240 

R  E  D I  M  U  h  r  #  <  D  i  m 

) 

250 

REDIM  Mitt  el <D 

i  m  ,  3  >  ,  S  t  an  d  ar  d  <  D  i 

260 

An fang:  ! 

1  10  MIN  Mu  =: 


6  rec/Std  =144  rsc  Tag 


270 

230 

2  3  O 

3  O  0 
310 
320 
330 
340 
350 
3  6  O 
3  7  O 
330 


T  f  €  r  t  i  g  =  0 
M  A  T  M i t  tel* < O  i 
M  AT  St  an d ar d  = < 0  > 

M AT  W s t i  1  1 e = < 0 > 

MAT  U  in  ax  =03) 

F 0 R  C  =  1  TO  D  i  in 

Uhr  I  <  C  )  =  " - " 

NEXT  C 

i 

PRINTER  IS  16 

PRINT  "DATEN  AUS  PROGRAMM 


USA  >" 


390  PRINT 

40O  G 0 SUB  Kopf 

410  IF  Mfertig  THEN  Ende 

420  GO SUE  Einleeen 

430  IF  Tfertig  THEN  Teller, de 

440  GOSUB  Print 

4  50  G 0 TO  42 0 

4  6  O  | 

470  Kopf:  * 

4  3  O  1 


4  9  0' 

ENTER  700 

USING 

"  + 

J"; 

D  a  t  u  in  # 

5  0'  0i 

IF  Datum#3 

;  ’*  9  Q  99  " 

THEN 

S  7  0i 

i  D  a» 

U"  #  =  "  x: xinhit  t  hh  "  ,  XX  =  STANDORT 

5  1  0i 

T  ag  =  VAL ■  D  a 

,t  urn#  [  5 

.  S 

]  ■ 

5  2  0 

Tf  i  1  e  #  =  D  at 

urn f  [  3  , 

S3 

?  D  at 

umf  [  1 , 2 

] 

5  30i 

ON  ERROR  G 

0i  T  0  E  r 

r  1 

540 

CREATE  D  at 

urn  ft  1  , 

23 

"  ::  T  1  5  f  , 

1  ,  2  O 

5  5  ‘j 

ASSIGN  #4 

T  0  D  a  t 

1.4  III 

»n , 

2]::  "ZZ" 

:■  T  1  5  f 

5  S  0' 

PRINT  #  4 ; Z 

in  ,  Z  2  ,  Z 

4 

5  7  0 

ASSIGN  #4 

TO  - 

5  3  0 

ON  ERROR  G 

0  T  0i  S  9  0i 

5  9  0i 

0  P  E  A  T  E  T  f  i 

1  e  f T  1 

51 

.l.i 

3  *■  D  i  in  +  4 

*  D  i  m  +  4 

*  D  i  m  +  4  *  8  *  D  i  m  +  4  *  8  *  D  i  in 

S  0i  0i 

ON  ERROR  G 

0i  T  0  E  r 

r  ot 

•4 


610  PRINTER  IS  16 

t-20  PRINT  USING  630;  "MESSDATEN  STATION",  "  :  "  ,  T  f  i  1  e  t  C  5 , 6  ]  ,  Tf  i  1  €  $  C  3  , 

€  f C 1 , 2] ,  " .  " , Ye ar t 

6  30  IMAGE  1 5 X ,  1  7  A  ,  3  A ,  2  A  ,  3  X  ,  2  A  ,  A ,  2  A  ,  A ,  2  A 

640  PR  I  NT  US  I  NG  650  ;  “  Uhr  "  ,  "  *  IJ  =  0  "  ,  "  Umax  "  ,  "  dd  "  ,  "  U  "  ,  "Temp  "  ,  "  f  t  "  ,  "  ppp 

1  " ,  "  S  g  2  " 

650  I  MAGE  5X3  A,  3X6  A,  2X4  A.  3X2  A,  4  X  A  ,  5X4  A,  4X2  A,  5X3  A,  2X3A,  3X3A,  4X  3  A 

660  RETURN 
6  7  O  M  f  e  r  t i  g  =  1 

680  RETURN 

6  9  O  OFF  E  R R  0 R 

700  IF  ERRNOS4  THEN  GOTO  1200 

7  1  0  G  0  T  0  6  O  O 

720  ! 

7  3  0  E  l  n  1  e  s  e  n  :  ! 

74  0  1 

750  ENTER  700  USING  " + , T , F , F " ; U* , UO , U9 

760  IF  U  t  =  " 99 . 99 "  THEN  890 

770  ENTER  700  USING  "+, 8<F> “ ; M<*> 

7S0  ENTER  700  USING  "+,8<F)“;S<*> 

790  Z  =  VAL'.:iJ»  C  1 , 2]  > 

800  Z  =  Z  h  *  Z  +  V  A  L  <  IJ  i  [  4 , 5  ]  >  /  Z  2  !  UMWANDLUNG  UHRZEIT  IN  I  HUE 

810  Uhr  t  <.  Z  )  =  U$ 

8  2  O  M  s  t  i  1  1  e  <  Z  >  =  U  O 

830  Urn  ax:  <  Z  >  =  U9 

8  40  F  0 R  C = 1  T  U  8 

8  5  O  M  i  1 1.  e- 1  Z ,  C  =  M  <  C  > 

8  6  O  S  t  an d ar  d  <  Z  ,  C  >  =  S  <  C  > 

870  NEXT  C 

880  RETURN 
890  T f e  r  t i  g  =  1 

900  RETURN  <***  *** 

9  1  O  1 

9  2  0  P  r  i  n  t  :  1 

9 30  PR  I  NT  US  I NG  " » . 5X5A , 3A , D  D  Z , X  2  D Z . D " ; U* *  ", UO , U9 

94  0  PRINT  USING  950; M  <  * > 

950  I  M AGE  3 X D D Z  ,  3 ■,  2 X 2 D Z .  D  ,  3 X 3 !■  Z  ,  X X DDZ,2 <  3 X Z.  I'D  ) 

960  PRINT  USING  970; "*",S<*> 

970  IMAGE  1 1 X , A ,  1 3 X , D  D Z , 3 • 2 X 2 D Z . D ) , 3 X 3 D 2 , X X DBZ, 2  < 3 X 2. DD > 

980  RETURN 
9  9  0  1 

1  0  0  0  T  e  t  1  e  n  d  e  :  1 

1  0  1  O  ! 

1020  PRINT  L I N ■  2  ■ 

1  O 3  O  D ISP  T  f i 1 e  t ; "  w i r d  g  e  s  p e i c h e  rt  " 

1040  WAIT  3000 

1050  ASSIGN  #1  TO  Tf l 1 e*xT 1 5f 

1  0  6  O  MAT  PRINT  #1  ;  U  h  r  t ,  W  julle,  U  rn  ax  ,  M  i  t  t  e  1  ,  S  t.  an  d  ar  d 
1070  ASSIGN  *  TO  #1 
108O  DISP  C H R t < 1 2  > 

109O  GOTO  An fang 
1  1  OO  ' 

1110  Er.de:  1 

1120  DISP  "  Fert ig" 

1130  STOP- 
1140  Err  1  :  ' 

1150  OFF  E  R  R'  U  R 

1160  IF  ERRN=54  THEN  580 

1170  E  r  r  o r :  1 

1180  OFF  ERROR 

1190  IF  ERRN=56  THEN  1220 

12O0  DISP  "ERPL  ERRN"  ;  EPRL;  ERF-N 


I 

FILMED 

k- 

W  ' 

* 

3-85 

DTIC 


